Shortcut
Otázka od: Milos J. Hrach
26. 11. 2003 8:27
Ahoj lidi!
Poradite mi nekdo jak "presvedcit" instalacni programek, aby
vytvoril napr. na plose Shortcut pro instalovany sw podle cesty,
kterou si uzivatel pri instalaci zvolil? Potrebuji zadat nejen
cestu, na ktere se nachazi spoustena aplikace, ale i adresar ze
ktereho ma sosat data.
Diky
Jakub
--
VOLNY Bingo - vyzvednete si svou hraci kartu
a vyhrajte nekterou z 38 cen!
http://soutez.volny.cz/slepa.php
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jan Fiala
26. 11. 2003 8:49
26.11.2003 Milos J. Hrach:
> Poradite mi nekdo jak "presvedcit" instalacni programek, aby
> vytvoril napr. na plose Shortcut pro instalovany sw podle cesty,
> kterou si uzivatel pri instalaci zvolil? Potrebuji zadat nejen
> cestu, na ktere se nachazi spoustena aplikace, ale i adresar ze
> ktereho ma sosat data.
A co treba prozradit, pomoci jakeho programu instalaci vytvaris ?
Vetsina jich ma promennou, pomoci ktere se ziska cesta po instalaci.
--
Jan Fiala
mailto:jan.fiala@wo.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Milos J. Hrach
26. 11. 2003 10:13
Instalacni program delam v Delphi, ve kterych bez problemu ziskam
cestu kam byl program nainstalovan.Dotza spis smeroval ke
strukture souboru shortcutu. Jak a kam cestu zapsat, aby vse
fungovalo. Jakub
----- PUVODNI ZPRAVA -----
Od: "Jan Fiala" <jan.fiala@wo.cz>
Komu: delphi-l@clexpert.cz
Predmet: Re: Shortcut
Datum: 26.11.2003 - 8:49:25
> 26.11.2003 Milos J. Hrach:
> > Poradite mi nekdo jak "presvedcit"
> > instalacni programek, aby
> > vytvoril napr. na plose Shortcut pro
> > instalovany sw podle cesty,
> > kterou si uzivatel pri instalaci zvolil?
> > Potrebuji zadat nejen
> > cestu, na ktere se nachazi spoustena
> > aplikace, ale i adresar ze
> > ktereho ma sosat data.
>
> A co treba prozradit, pomoci jakeho programu
> instalaci vytvaris ?
> Vetsina jich ma promennou, pomoci ktere se
> ziska cesta po instalaci.
>
> --
> Jan Fiala
> mailto:jan.fiala@wo.cz
>
>
>
>
>
--
VOLNY Bingo - vyzvednete si svou hraci kartu
a vyhrajte nekterou z 38 cen!
http://soutez.volny.cz/slepa.php
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jan Fiala
26. 11. 2003 11:56
26.11.2003 Milos J. Hrach:
> Instalacni program delam v Delphi, ve kterych bez problemu ziskam
> cestu kam byl program nainstalovan.Dotza spis smeroval ke
> strukture souboru shortcutu. Jak a kam cestu zapsat, aby vse
> fungovalo. Jakub
Stale tomu moc nerozumim. Ty pises vlastni instalacni program ?
Neni lepsi pouzit hotove reseni (takovy InnoSetup), ktery je zdarma,
ma cestinu bude vypadat urcite lip, vcetne moznosti odinstalace apod.
Jinak pro vytvareni odkazu muzes pouzit knihovnu JCL, unita
JCLShell.PAS. Pokud si to chces udelat sam, muzes to pouzit jako zdroj
informaci.
--
Jan Fiala
mailto:jan.fiala@wo.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jiri Betunak
26. 11. 2003 12:14
Hello Jan,
Wednesday, November 26, 2003, 11:54:43 AM, you wrote:
JF> 26.11.2003 Milos J. Hrach:
>> Instalacni program delam v Delphi, ve kterych bez problemu ziskam
>> cestu kam byl program nainstalovan.Dotza spis smeroval ke
>> strukture souboru shortcutu. Jak a kam cestu zapsat, aby vse
>> fungovalo. Jakub
a co treba takhle
----------------
//Do USES musite pridat: FileCtrl,ShlObj, ActiveX, ComObj
procedure CreateLink(WorkingDirectory,FileName,Arguments:
String ;TargetLinkFile: WideString;
Description,IconPath: String ;IconIdex: Integer);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments (PChar(Arguments));
SetPath (PChar(FileName));
SetWorkingDirectory(PChar(WorkingDirectory));
SetDescription (PChar(Description));
SetIconLocation (PChar(IconPath), IconIdex);
end ;
If Not DirectoryExists(ExtractFileDir(TargetLinkFile)) then
CreateDir(ExtractFileDir(TargetLinkFile));
MyPFile.Save(PWChar(TargetLinkFile),False);
MySLink := Nil ;
MyPFile := Nil ;
MyObject := Nil ;
end ;
//Pak uz staci jen zavolat proceduru, napr.:
CreateLink('C:\Win98', 'C:\Win98\Sndrec32.exe', '',
'C:\Win98\sndrec32.lnk', 'Z?znam zvuku', 'C:\icon.ico', 0);
----------------
--
Best regards,
KinDR mailto:kindrik@centrum.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Milos J. Hrach
26. 11. 2003 14:51
Diky Vyzkousim
Jakub
----- PUVODNI ZPRAVA -----
Od: "Jiri Betunak" <kindrik@centrum.cz>
Komu: delphi-l@clexpert.cz
Predmet: Re: Shortcut
Datum: 26.11.2003 - 12:30:10
> Hello Jan,
>
> Wednesday, November 26, 2003, 11:54:43 AM,
> you wrote:
>
> JF> 26.11.2003 Milos J. Hrach:
> >> Instalacni program delam v Delphi, ve
> >> kterych bez problemu ziskam
> >> cestu kam byl program nainstalovan.Dotza
> >> spis smeroval ke
> >> strukture souboru shortcutu. Jak a kam
> >> cestu zapsat, aby vse
> >> fungovalo. Jakub
> a co treba takhle
>
> ----------------
> //Do USES musite pridat: FileCtrl,ShlObj,
> ActiveX, ComObj
>
> procedure
> CreateLink(WorkingDirectory,FileName,Arguments:
>
> String ;TargetLinkFile: WideString;
> Description,IconPath: String ;IconIdex:
> Integer);
> var
> MyObject : IUnknown;
> MySLink : IShellLink;
> MyPFile : IPersistFile;
> begin
> MyObject := CreateComObject(CLSID_ShellLink);
> MySLink := MyObject as IShellLink;
> MyPFile := MyObject as IPersistFile;
> with MySLink do
> begin
> SetArguments (PChar(Arguments));
> SetPath (PChar(FileName));
> SetWorkingDirectory(PChar(WorkingDirectory));
> SetDescription (PChar(Description));
> SetIconLocation (PChar(IconPath), IconIdex);
> end ;
> If Not
> DirectoryExists(ExtractFileDir(TargetLinkFile))
> then
> CreateDir(ExtractFileDir(TargetLinkFile));
> MyPFile.Save(PWChar(TargetLinkFile),False);
> MySLink := Nil ;
> MyPFile := Nil ;
> MyObject := Nil ;
> end ;
>
> //Pak uz staci jen zavolat proceduru, napr.:
> CreateLink('C:\Win98',
> 'C:\Win98\Sndrec32.exe', '',
> 'C:\Win98\sndrec32.lnk', 'Z?znam zvuku',
> 'C:\icon.ico', 0);
>
> ----------------
>
>
>
>
>
> --
> Best regards,
> KinDR
> mailto:kindrik@centrum.cz
>
>
>
>
--
VOLNY Bingo - vyzvednete si svou hraci kartu
a vyhrajte nekterou z 38 cen!
http://soutez.volny.cz/slepa.php
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Petr Vones
26. 11. 2003 14:36
From: "Milos J. Hrach" <jhrach@post.cz>
> Instalacni program delam v Delphi, ve kterych bez problemu ziskam
> cestu kam byl program nainstalovan.Dotza spis smeroval ke
> strukture souboru shortcutu. Jak a kam cestu zapsat, aby vse
Pomoci funkce ShellLinkCreateSystem z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
uses
ComObj, ShlObj, JclShell;
procedure TForm1.Button1Click(Sender: TObject);
var
Link: TShellLink;
begin
FillChar(Link, SizeOf(Link), 0);
Link.Target := 'notepad.exe';
Link.Description := 'My Notepad';
OleCheck(ShellLinkCreateSystem(Link, CSIDL_DESKTOP, 'Notepad.lnk'));
end;
Petr Vones
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)